home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Herra
/
SLANG10.ZIP
/
CALENDAR.VEC
< prev
next >
Wrap
Text File
|
1997-09-14
|
2KB
|
104 lines
ADDZOOM(1,1)
setline(0, 1)
'ADDZOOM(5, 5) ' For printing
'setline(0, 8) ' For printing
style(1, 15)
fill(1)
zoom(1, 1)
rectangle(0, 0, 1000, 1000)
scroll(1800, 500)
play("bird.vec")
scroll(0, 500)
zoom(0.35, 0.33)
color(0)
font("trip.chr")
@calendar(80, 120, 1995, 0)
END
@CALENDAR(l, t, year, v)
day = 7
IF year = 1996 THEN day = 1 ENDIF
x = l: y = t + 15
FOR i = 1 TO 3
TEXT(x, y, "Mo")
y = y + 30
TEXT(x, y, "Tu")
y = y + 30
TEXT(x, y, "We")
y = y + 30
TEXT(x, y, "Th")
y = y + 30
TEXT(x, y, "Fr")
y = y + 30
TEXT(x, y, "Sa")
y = y + 30
TEXT(x, y, "Su")
y = y + 100
NEXT
x = l + 100: y = t -30
day=@MON(x, y, "January",day, 31)
dv = 28
IF v = 1 THEN dv = 29 ENDIF
day=@MON(x+340,y,"February",day,dv)
day=@MON(x+680,y,"March",day,31)
day=@MON(x+1020,y,"April",day,30)
day=@MON(x,y+280, "May",day, 31)
day=@MON(x+340,y+280,"June",day,30)
day=@MON(x+680,y+280,"July",day,31)
day=@MON(x+1020, y+280, "August",day, 31)
day=@MON(x,y+560,"September",day,30)
day=@MON(x+340,y+560,"October",day,31)
day=@MON(x+680,y+560,"November",day, 30)
day=@MON(x+1020,y+560,"December",day, 31)
RETURN
@MON(x1, y1, head, start, num)
FILL(1)
STYLE(1, 15)
TEXT(x1 + 60, y1, head)
days = 1
ln = start
y1 = y1 + 15
#lab1
IF days > num THEN GOTO lab2 ENDIF
#lab3
IF ln > 7 THEN GOTO lab4 ENDIF
IF days > num THEN GOTO lab2 ENDIF
@TEXT(x1, y1+30*ln, days)
days = days + 1
ln = ln + 1
GOTO lab3
#lab4
x1 = x1 + 50
ln = 1
GOTO lab1
#lab2
RETURN ln
@TEXT(x2, y2, number)
TEXT(x2, y2, number)
COLOR(15)
shift = 37
IF number < 10 THEN shift = 20 ENDIF
RECTANGLE(x2+shift,y2-35,x2+160,y2+30)
COLOR(0)
RETURN